* **************************************************************************** *
* Sierra Leone - Social Signaling and Childhood Immunization
* Figure: Reputational Costs and Benefits
* **************************************************************************** *
/*
** Purpose:     Reputational Costs and Benefits

*/
* **************************************************************************** *
* **************************************************************************** *

 	* Set figure format/style
	set scheme plotplainblind
	graph drop _all

	* ----------------------------------------------------------------------------
	* Figure: Inferences about Types Conditional on Vaccine Decisions

	use  "${Replicate_SocialSignals_dtaInter}/Endline_Survey_Data.dta", clear


	summ  notknow lazy busymother poor nothing
	local Observations1 = trim("`: display %-9.0gc r(N)'")

	graph drop _all
	
	graph bar ///
	careless notknow lazy busymother poor nothing,  ///
	yscale(r(0 1)) blabel(bar, format(%12.2f)) nopercent                    ///
	subtitle("missed to take your child for vaccinations?")                 ///
	ytitle("Share of Respondents")                                          ///
	text(-0.03 11 "Careless", size(vsmall)) ///
	text(-0.03 26.5 "Ignorant", size(vsmall)) ///
	text(-0.03 42 "Lazy", size(vsmall)) ///
	text(-0.03 57.5 "Busy", size(vsmall)) ///
	text(-0.03 73.25 "Poor", size(vsmall)) ///
	text(-0.03 90 "No Judgement", size(vsmall)) ///
	scheme(plotplainblind) name(viewmiss) legend(off) ///
	ytick(0.1(0.1)0.9, grid)


	summ  caring knowimportant nothingspecial
	local Observations2 = trim("`: display %-9.0gc r(N)'")


	graph bar ///
	caring knowimportant nothingspecial,  ///
	subtitle("took your child for all vaccinations?")    ///
	ytitle("Share of Respondents")                       ///
	yscale(r(0 1)) blabel(bar, format(%12.2f)) nopercent ///
	name(viewall) scheme(plotplainblind) legend(off) ///
	text(-0.03 20 "Caring/patient/serious", size(vsmall)) ///
	text(-0.03 50 "Know of importance", size(vsmall))     ///
	text(-0.03 79 "Think nothing special"  "about me", size(vsmall)) ///
	ytick(0.1(0.1)0.9, grid)


	* Combine both graphs
	graph combine ///
	viewall viewmiss,  ///
	subtitle("How would community members view you if you...")
	graph export "${Replicate_SocialSignals_Figures}/Figure_InferencesAboutTypes_NEW.jpg", replace





* **************************************************************************** *
* End of Figure: Inferences about Types Conditional on Vaccine Decisions !!!
* **************************************************************************** *
